home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_B.d64 / demo m&t 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  36 lines

  1. 1 rem laser - demo- und steuer-programm
  2. 2 rem von nikolaus heusler         8.91
  3. 3 rem zwengauerweg 18, 8000 muenchen 71
  4. 4 :
  5. 10 ifpeek(49155)<>3thenload"laser.code",8,8
  6. 20 sys49152:sp=8
  7. 30 print"[147]laser-steuer- und demoprogramm    m&t/nh
  8. 40 [153]"tasten:  + wait /  - wait ..... verzoegerung
  9. 42 print"         s [146] ........... programm-pause
  10. 43 [153]"         w wait ........... weiter
  11. 44 print"         x [146] ........... ende
  12. 90 [137]900
  13. 230 [151]6,br:[151]2,1:[151]3,1:[151]4,m1:[151]5,m2:[142]
  14. 800 [139]pp[178]1[167]810
  15. 802 pp[178]1:[153]""[163]22)"(pause)":[142]
  16. 810 pp[178]0:[153]""[163]22)"       ":[142]
  17. 900 [140]:[129]dk[178]1[164]15
  18. 902 [135]m1,m2,br:[141]230
  19. 904 [129]di[178]1[164]sp[172]8
  20. 906 [153]"   verzoegerung:"sp"cmd  "
  21. 907 [153]"        schritt:"dk"cmd  "
  22. 908 [161]a$:[151]198,.
  23. 910 [139]a$[178]"+"[167]sp[178]sp[170]1:[139]sp[177]40[167]sp[178]40
  24. 912 [139]a$[178]"-"[167]sp[178]sp[171]1:[139]sp[179]0[167]sp[178]0
  25. 913 [139]a$[178]"+"[176]a$[178]"-"[167]926
  26. 914 [139]a$[178]"x"[167][158]49152:[158]65418:[151]56325,64:[158]65409:[128]
  27. 916 [139]a$[178]"w"[167]926
  28. 918 [139]a$[178]"s"[167][141]800
  29. 920 [139]pp[167]di[178]1
  30. 924 [130]di
  31. 926 [130]dk:[137]900
  32. 950 [131]70,59,76,246,31,235,209,216,5,129,61,33
  33. 952 [131]48,252,150,94,152,53,243,116,248,30,94,195
  34. 954 [131]221,49,38,212,80,88,10,200,86,145,44,70,17,116,220
  35. 956 [131]15,117,232,160,100,60
  36.